home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Third Party Demos / Information Management / Filevision® IV / FilevisionÆ IV / card_6407.txt < prev    next >
Encoding:
Text File  |  1990-03-16  |  10.4 KB  |  524 lines
  1. -- card: 6407 from stack: in
  2. -- bmap block id: 6900
  3. -- flags: 0000
  4. -- background id: 2807
  5. -- name: order
  6. ----- HyperTalk script -----
  7. on mousedown
  8.   put 1 into flash
  9.   repeat until flash=3
  10.     add 1 to flash
  11.     set the hilite of card button 1 to false
  12.     wait 20
  13.     set the hilite of card button 1 to true
  14.   end repeat
  15.   set the hilite of card button 1 to false
  16.   set the numberFormat to "0.00"
  17.   get card field 1
  18.   put it * 495.00 into card field 3
  19.   get card field 2
  20.   put it * 99.00 into card field 4
  21.   get card field 20
  22.   put it * 100 into card field 5
  23.   get card field 21
  24.   put it * 150 into card field 6
  25.   get card field 22
  26.   put it * 200 into card field 7
  27.   put (card field 3+card field 4+card field 5+card field 6+card field 7) into sub_total
  28.   if card field 11 >=0
  29.   then
  30.   put (sub_total*card field 11*.01) into card field 8
  31. else
  32. end if
  33. put sub_total+card field 8+card field 9 into card field 10
  34. end mouseDown
  35.  
  36.  
  37.  
  38. -- part 11 (button)
  39. -- low flags: 00
  40. -- high flags: A004
  41. -- rect: left=97 top=2 right=20 bottom=416
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 1
  45. -- font id: 3
  46. -- text size: 10
  47. -- style flags: 256
  48. -- line height: 13
  49. -- part name: To print a copy of this order, just click on this box.
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   set textSize of me to 10
  53.   set textFont of me to Geneva
  54.   set textStyle of me to Bold
  55.   doMenu Print Card
  56. end mouseUp
  57.  
  58.  
  59.  
  60. -- part 12 (field)
  61. -- low flags: 00
  62. -- high flags: 2002
  63. -- rect: left=99 top=47 right=64 bottom=132
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 65535
  67. -- font id: 3
  68. -- text size: 10
  69. -- style flags: 0
  70. -- line height: 11
  71. -- part name: Fv IV
  72.  
  73.  
  74. -- part 13 (field)
  75. -- low flags: 00
  76. -- high flags: 2002
  77. -- rect: left=99 top=65 right=82 bottom=132
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 65535
  81. -- font id: 3
  82. -- text size: 10
  83. -- style flags: 0
  84. -- line height: 11
  85. -- part name: Maps
  86.  
  87.  
  88. -- part 25 (field)
  89. -- low flags: 01
  90. -- high flags: 2000
  91. -- rect: left=433 top=48 right=65 bottom=488
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 65535
  95. -- font id: 534
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 12
  99. -- part name: 
  100. ----- HyperTalk script -----
  101. on mouseUp
  102.   put the contents of card field "Fv IV"*495 into me
  103. end MouseUp
  104.  
  105.  
  106.  
  107. -- part 26 (field)
  108. -- low flags: 01
  109. -- high flags: 2000
  110. -- rect: left=433 top=64 right=81 bottom=488
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 0 / 0
  113. -- text alignment: 65535
  114. -- font id: 534
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 12
  118. -- part name: 
  119.  
  120.  
  121. -- part 27 (field)
  122. -- low flags: 01
  123. -- high flags: 2000
  124. -- rect: left=433 top=79 right=96 bottom=488
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 65535
  128. -- font id: 534
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 12
  132. -- part name: 
  133.  
  134.  
  135. -- part 28 (field)
  136. -- low flags: 01
  137. -- high flags: 2000
  138. -- rect: left=433 top=94 right=111 bottom=488
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 65535
  142. -- font id: 534
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 12
  146. -- part name: 
  147.  
  148.  
  149. -- part 29 (field)
  150. -- low flags: 01
  151. -- high flags: 2000
  152. -- rect: left=433 top=110 right=126 bottom=488
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 65535
  156. -- font id: 534
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 12
  160. -- part name: 
  161.  
  162.  
  163. -- part 30 (field)
  164. -- low flags: 01
  165. -- high flags: 2000
  166. -- rect: left=433 top=125 right=141 bottom=488
  167. -- title width / last selected line: 0
  168. -- icon id / first selected line: 0 / 0
  169. -- text alignment: 65535
  170. -- font id: 534
  171. -- text size: 12
  172. -- style flags: 0
  173. -- line height: 12
  174. -- part name: 
  175. ----- HyperTalk script -----
  176. on openCard
  177.  
  178. end openCard
  179.  
  180.  
  181. -- part 31 (field)
  182. -- low flags: 01
  183. -- high flags: 2000
  184. -- rect: left=433 top=141 right=158 bottom=488
  185. -- title width / last selected line: 0
  186. -- icon id / first selected line: 0 / 0
  187. -- text alignment: 65535
  188. -- font id: 534
  189. -- text size: 12
  190. -- style flags: 0
  191. -- line height: 12
  192. -- part name: 
  193.  
  194.  
  195. -- part 32 (field)
  196. -- low flags: 01
  197. -- high flags: 2000
  198. -- rect: left=433 top=163 right=180 bottom=488
  199. -- title width / last selected line: 0
  200. -- icon id / first selected line: 0 / 0
  201. -- text alignment: 65535
  202. -- font id: 534
  203. -- text size: 12
  204. -- style flags: 0
  205. -- line height: 12
  206. -- part name: 
  207.  
  208.  
  209. -- part 33 (field)
  210. -- low flags: 00
  211. -- high flags: 0002
  212. -- rect: left=293 top=131 right=145 bottom=321
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 0 / 0
  215. -- text alignment: 65535
  216. -- font id: 534
  217. -- text size: 12
  218. -- style flags: 0
  219. -- line height: 14
  220. -- part name: 
  221.  
  222.  
  223. -- part 35 (field)
  224. -- low flags: 00
  225. -- high flags: 0002
  226. -- rect: left=214 top=197 right=212 bottom=230
  227. -- title width / last selected line: 0
  228. -- icon id / first selected line: 0 / 0
  229. -- text alignment: 0
  230. -- font id: 534
  231. -- text size: 10
  232. -- style flags: 0
  233. -- line height: 13
  234. -- part name: visa
  235.  
  236.  
  237. -- part 36 (field)
  238. -- low flags: 00
  239. -- high flags: 0002
  240. -- rect: left=384 top=198 right=213 bottom=497
  241. -- title width / last selected line: 0
  242. -- icon id / first selected line: 0 / 0
  243. -- text alignment: 0
  244. -- font id: 534
  245. -- text size: 10
  246. -- style flags: 0
  247. -- line height: 13
  248. -- part name: po#
  249.  
  250.  
  251. -- part 37 (field)
  252. -- low flags: 00
  253. -- high flags: 0002
  254. -- rect: left=135 top=214 right=228 bottom=257
  255. -- title width / last selected line: 0
  256. -- icon id / first selected line: 0 / 0
  257. -- text alignment: 0
  258. -- font id: 534
  259. -- text size: 10
  260. -- style flags: 0
  261. -- line height: 13
  262. -- part name: cardnumb
  263.  
  264.  
  265. -- part 38 (field)
  266. -- low flags: 00
  267. -- high flags: 0002
  268. -- rect: left=173 top=229 right=244 bottom=226
  269. -- title width / last selected line: 0
  270. -- icon id / first selected line: 0 / 0
  271. -- text alignment: 1
  272. -- font id: 534
  273. -- text size: 10
  274. -- style flags: 0
  275. -- line height: 13
  276. -- part name: exp
  277.  
  278.  
  279. -- part 39 (field)
  280. -- low flags: 00
  281. -- high flags: 0000
  282. -- rect: left=300 top=255 right=316 bottom=501
  283. -- title width / last selected line: 0
  284. -- icon id / first selected line: 0 / 0
  285. -- text alignment: 0
  286. -- font id: 534
  287. -- text size: 10
  288. -- style flags: 0
  289. -- line height: 15
  290. -- part name: sendto
  291.  
  292.  
  293. -- part 40 (field)
  294. -- low flags: 00
  295. -- high flags: 0000
  296. -- rect: left=276 top=316 right=332 bottom=381
  297. -- title width / last selected line: 0
  298. -- icon id / first selected line: 0 / 0
  299. -- text alignment: 0
  300. -- font id: 534
  301. -- text size: 10
  302. -- style flags: 0
  303. -- line height: 16
  304. -- part name: city
  305.  
  306.  
  307. -- part 41 (field)
  308. -- low flags: 00
  309. -- high flags: 0000
  310. -- rect: left=392 top=316 right=332 bottom=413
  311. -- title width / last selected line: 0
  312. -- icon id / first selected line: 0 / 0
  313. -- text alignment: 0
  314. -- font id: 534
  315. -- text size: 10
  316. -- style flags: 0
  317. -- line height: 16
  318. -- part name: st
  319.  
  320.  
  321. -- part 42 (field)
  322. -- low flags: 00
  323. -- high flags: 0000
  324. -- rect: left=432 top=316 right=332 bottom=500
  325. -- title width / last selected line: 0
  326. -- icon id / first selected line: 0 / 0
  327. -- text alignment: 0
  328. -- font id: 534
  329. -- text size: 10
  330. -- style flags: 0
  331. -- line height: 16
  332. -- part name: zip
  333.  
  334.  
  335. -- part 43 (button)
  336. -- low flags: 00
  337. -- high flags: A002
  338. -- rect: left=410 top=181 right=195 bottom=497
  339. -- title width / last selected line: 0
  340. -- icon id / first selected line: 0 / 0
  341. -- text alignment: 1
  342. -- font id: 3
  343. -- text size: 9
  344. -- style flags: 0
  345. -- line height: 12
  346. -- part name: Click here to total
  347.  
  348.  
  349. -- part 44 (button)
  350. -- low flags: 00
  351. -- high flags: A002
  352. -- rect: left=194 top=147 right=161 bottom=240
  353. -- title width / last selected line: 0
  354. -- icon id / first selected line: 0 / 0
  355. -- text alignment: 1
  356. -- font id: 3
  357. -- text size: 9
  358. -- style flags: 0
  359. -- line height: 12
  360. -- part name: @ $4.00
  361. ----- HyperTalk script -----
  362. on mouseUp
  363.   put 4.00 into card field 9
  364. end mouseUp
  365.  
  366.  
  367.  
  368. -- part 45 (field)
  369. -- low flags: 00
  370. -- high flags: 0002
  371. -- rect: left=293 top=85 right=99 bottom=321
  372. -- title width / last selected line: 0
  373. -- icon id / first selected line: 0 / 0
  374. -- text alignment: 65535
  375. -- font id: 3
  376. -- text size: 10
  377. -- style flags: 0
  378. -- line height: 11
  379. -- part name: 
  380.  
  381.  
  382. -- part 46 (field)
  383. -- low flags: 00
  384. -- high flags: 0002
  385. -- rect: left=293 top=98 right=112 bottom=321
  386. -- title width / last selected line: 0
  387. -- icon id / first selected line: 0 / 0
  388. -- text alignment: 65535
  389. -- font id: 3
  390. -- text size: 10
  391. -- style flags: 0
  392. -- line height: 11
  393. -- part name: 
  394.  
  395.  
  396. -- part 47 (field)
  397. -- low flags: 00
  398. -- high flags: 0002
  399. -- rect: left=293 top=111 right=125 bottom=321
  400. -- title width / last selected line: 0
  401. -- icon id / first selected line: 0 / 0
  402. -- text alignment: 65535
  403. -- font id: 3
  404. -- text size: 10
  405. -- style flags: 0
  406. -- line height: 11
  407. -- part name: 
  408.  
  409.  
  410. -- part 48 (button)
  411. -- low flags: 00
  412. -- high flags: A002
  413. -- rect: left=250 top=147 right=161 bottom=356
  414. -- title width / last selected line: 0
  415. -- icon id / first selected line: 0 / 0
  416. -- text alignment: 1
  417. -- font id: 3
  418. -- text size: 9
  419. -- style flags: 0
  420. -- line height: 12
  421. -- part name: @ $10.00 (Outside US)
  422. ----- HyperTalk script -----
  423. on mouseUp
  424.   put 10.00 into card field 9
  425. end mouseUp
  426.  
  427.  
  428.  
  429. -- part 50 (field)
  430. -- low flags: 00
  431. -- high flags: 0002
  432. -- rect: left=142 top=196 right=211 bottom=158
  433. -- title width / last selected line: 0
  434. -- icon id / first selected line: 0 / 0
  435. -- text alignment: 0
  436. -- font id: 534
  437. -- text size: 10
  438. -- style flags: 0
  439. -- line height: 13
  440. -- part name: mc
  441.  
  442.  
  443. -- part 51 (button)
  444. -- low flags: 00
  445. -- high flags: 2000
  446. -- rect: left=434 top=0 right=31 bottom=469
  447. -- title width / last selected line: 0
  448. -- icon id / first selected line: 14953 / 14953
  449. -- text alignment: 1
  450. -- font id: 0
  451. -- text size: 12
  452. -- style flags: 0
  453. -- line height: 16
  454. -- part name: return
  455. ----- HyperTalk script -----
  456. on mouseUp
  457.   play "click"
  458.   go to card 1
  459. end mouseUp
  460.  
  461.  
  462.  
  463. -- part contents for card part 12
  464. ----- text -----
  465. 1
  466.  
  467. -- part contents for card part 13
  468. ----- text -----
  469. 1
  470.  
  471. -- part contents for card part 25
  472. ----- text -----
  473. 495.00
  474.  
  475. -- part contents for card part 26
  476. ----- text -----
  477. 99.00
  478.  
  479. -- part contents for card part 32
  480. ----- text -----
  481. 633.64
  482.  
  483. -- part contents for card part 33
  484. ----- text -----
  485. 6
  486.  
  487. -- part contents for card part 30
  488. ----- text -----
  489. 35.64
  490.  
  491. -- part contents for card part 31
  492. ----- text -----
  493. 4.00
  494.  
  495. -- part contents for card part 39
  496. ----- text -----
  497.  
  498.  
  499.  
  500.  
  501.  
  502. -- part contents for card part 45
  503. ----- text -----
  504. 0
  505.  
  506. -- part contents for card part 46
  507. ----- text -----
  508. 0
  509.  
  510. -- part contents for card part 47
  511. ----- text -----
  512. 0
  513.  
  514. -- part contents for card part 27
  515. ----- text -----
  516. 0.00
  517.  
  518. -- part contents for card part 28
  519. ----- text -----
  520. 0.00
  521.  
  522. -- part contents for card part 29
  523. ----- text -----
  524. 0.00